home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / DELPHI3.EXE / %MAINDIR% / Examples / Delphi3 / ActiveX Form / Teex_tlb.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-17  |  9.3 KB  |  250 lines
  1. unit TeeX_TLB;
  2.  
  3. { This file contains pascal declarations imported from a type library.
  4.   This file will be written during each import or refresh of the type
  5.   library editor.  Changes to this file will be discarded during the
  6.   refresh process. }
  7.  
  8. { TeeX Library }
  9. { Version 1.0 }
  10.  
  11. interface
  12.  
  13. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  14.  
  15. const
  16.   LIBID_TeeX: TGUID = '{6EFF2420-BF09-11D0-B4DF-00A0C901D681}';
  17.  
  18. const
  19.  
  20. { TxActiveFormBorderStyle }
  21.  
  22.   afbNone = 0;
  23.   afbSingle = 1;
  24.   afbSunken = 2;
  25.   afbRaised = 3;
  26.  
  27. { TxPrintScale }
  28.  
  29.   poNone = 0;
  30.   poProportional = 1;
  31.   poPrintToFit = 2;
  32.  
  33. { TxMouseButton }
  34.  
  35.   mbLeft = 0;
  36.   mbRight = 1;
  37.   mbMiddle = 2;
  38.  
  39. { TxWindowState }
  40.  
  41.   wsNormal = 0;
  42.   wsMinimized = 1;
  43.   wsMaximized = 2;
  44.  
  45. const
  46.  
  47. { Component class GUIDs }
  48.   Class_ChartX: TGUID = '{6EFF2423-BF09-11D0-B4DF-00A0C901D681}';
  49.  
  50. type
  51.  
  52. { Forward declarations: Interfaces }
  53.   ITeeAxForm = interface;
  54.   ITeeAxFormDisp = dispinterface;
  55.   IChartXEvents = dispinterface;
  56.  
  57. { Forward declarations: CoClasses }
  58.   ChartX = ITeeAxForm;
  59.  
  60. { Forward declarations: Enums }
  61.   TxActiveFormBorderStyle = TOleEnum;
  62.   TxPrintScale = TOleEnum;
  63.   TxMouseButton = TOleEnum;
  64.   TxWindowState = TOleEnum;
  65.  
  66. { Dispatch interface for TeeChartX Control }
  67.  
  68.   ITeeAxForm = interface(IDispatch)
  69.     ['{6EFF2421-BF09-11D0-B4DF-00A0C901D681}']
  70.     function Get_AutoScroll: WordBool; safecall;
  71.     procedure Set_AutoScroll(Value: WordBool); safecall;
  72.     function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;
  73.     procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;
  74.     function Get_Caption: WideString; safecall;
  75.     procedure Set_Caption(const Value: WideString); safecall;
  76.     function Get_Color: Integer; safecall;
  77.     procedure Set_Color(Value: Integer); safecall;
  78.     function Get_KeyPreview: WordBool; safecall;
  79.     procedure Set_KeyPreview(Value: WordBool); safecall;
  80.     function Get_PixelsPerInch: Integer; safecall;
  81.     procedure Set_PixelsPerInch(Value: Integer); safecall;
  82.     function Get_PrintScale: TxPrintScale; safecall;
  83.     procedure Set_PrintScale(Value: TxPrintScale); safecall;
  84.     function Get_Scaled: WordBool; safecall;
  85.     procedure Set_Scaled(Value: WordBool); safecall;
  86.     function Get_Active: WordBool; safecall;
  87.     function Get_DropTarget: WordBool; safecall;
  88.     procedure Set_DropTarget(Value: WordBool); safecall;
  89.     function Get_HelpFile: WideString; safecall;
  90.     procedure Set_HelpFile(const Value: WideString); safecall;
  91.     function Get_WindowState: TxWindowState; safecall;
  92.     procedure Set_WindowState(Value: TxWindowState); safecall;
  93.     function Get_Visible: WordBool; safecall;
  94.     procedure Set_Visible(Value: WordBool); safecall;
  95.     function Get_Enabled: WordBool; safecall;
  96.     procedure Set_Enabled(Value: WordBool); safecall;
  97.     function Get_Cursor: Smallint; safecall;
  98.     procedure Set_Cursor(Value: Smallint); safecall;
  99.     function Get_ChartColor: Integer; safecall;
  100.     procedure Set_ChartColor(Value: Integer); safecall;
  101.     property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
  102.     property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle;
  103.     property Caption: WideString read Get_Caption write Set_Caption;
  104.     property Color: Integer read Get_Color write Set_Color;
  105.     property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
  106.     property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch;
  107.     property PrintScale: TxPrintScale read Get_PrintScale write Set_PrintScale;
  108.     property Scaled: WordBool read Get_Scaled write Set_Scaled;
  109.     property Active: WordBool read Get_Active;
  110.     property DropTarget: WordBool read Get_DropTarget write Set_DropTarget;
  111.     property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
  112.     property WindowState: TxWindowState read Get_WindowState write Set_WindowState;
  113.     property Visible: WordBool read Get_Visible write Set_Visible;
  114.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  115.     property Cursor: Smallint read Get_Cursor write Set_Cursor;
  116.     property ChartColor: Integer read Get_ChartColor write Set_ChartColor;
  117.   end;
  118.  
  119. { DispInterface declaration for Dual Interface ITeeAxForm }
  120.  
  121.   ITeeAxFormDisp = dispinterface
  122.     ['{6EFF2421-BF09-11D0-B4DF-00A0C901D681}']
  123.     property AutoScroll: WordBool dispid 1;
  124.     property AxBorderStyle: TxActiveFormBorderStyle dispid 2;
  125.     property Caption: WideString dispid 3;
  126.     property Color: Integer dispid 4;
  127.     property KeyPreview: WordBool dispid 5;
  128.     property PixelsPerInch: Integer dispid 6;
  129.     property PrintScale: TxPrintScale dispid 7;
  130.     property Scaled: WordBool dispid 8;
  131.     property Active: WordBool readonly dispid 9;
  132.     property DropTarget: WordBool dispid 10;
  133.     property HelpFile: WideString dispid 11;
  134.     property WindowState: TxWindowState dispid 12;
  135.     property Visible: WordBool dispid 13;
  136.     property Enabled: WordBool dispid 14;
  137.     property Cursor: Smallint dispid 15;
  138.     property ChartColor: Integer dispid 16;
  139.   end;
  140.  
  141. { Events interface for TeeChartX Control }
  142.  
  143.   IChartXEvents = dispinterface
  144.     ['{6EFF2422-BF09-11D0-B4DF-00A0C901D681}']
  145.     procedure OnActivate; dispid 1;
  146.     procedure OnClick; dispid 2;
  147.     procedure OnCreate; dispid 3;
  148.     procedure OnDblClick; dispid 4;
  149.     procedure OnDestroy; dispid 5;
  150.     procedure OnDeactivate; dispid 6;
  151.     procedure OnKeyPress(var Key: Smallint); dispid 7;
  152.     procedure OnPaint; dispid 8;
  153.   end;
  154.  
  155. { TeeChartX }
  156.  
  157.   TChartXOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object;
  158.  
  159.   TChartX = class(TOleControl)
  160.   private
  161.     FOnActivate: TNotifyEvent;
  162.     FOnClick: TNotifyEvent;
  163.     FOnCreate: TNotifyEvent;
  164.     FOnDblClick: TNotifyEvent;
  165.     FOnDestroy: TNotifyEvent;
  166.     FOnDeactivate: TNotifyEvent;
  167.     FOnKeyPress: TChartXOnKeyPress;
  168.     FOnPaint: TNotifyEvent;
  169.     FIntf: ITeeAxForm;
  170.   protected
  171.     procedure InitControlData; override;
  172.     procedure InitControlInterface(const Obj: IUnknown); override;
  173.   public
  174.     property ControlInterface: ITeeAxForm read FIntf;
  175.     property Active: WordBool index 9 read GetWordBoolProp;
  176.   published
  177.     property Align;
  178.     property DragCursor;
  179.     property DragMode;
  180.     property ParentShowHint;
  181.     property PopupMenu;
  182.     property ShowHint;
  183.     property TabOrder;
  184.     property OnDragDrop;
  185.     property OnDragOver;
  186.     property OnEndDrag;
  187.     property OnEnter;
  188.     property OnExit;
  189.     property OnStartDrag;
  190.     property AutoScroll: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  191.     property AxBorderStyle: TxActiveFormBorderStyle index 2 read GetTOleEnumProp write SetTOleEnumProp stored False;
  192.     property Caption: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
  193.     property Color: Integer index 4 read GetIntegerProp write SetIntegerProp stored False;
  194.     property KeyPreview: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
  195.     property PixelsPerInch: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
  196.     property PrintScale: TxPrintScale index 7 read GetTOleEnumProp write SetTOleEnumProp stored False;
  197.     property Scaled: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
  198.     property DropTarget: WordBool index 10 read GetWordBoolProp write SetWordBoolProp stored False;
  199.     property HelpFile: WideString index 11 read GetWideStringProp write SetWideStringProp stored False;
  200.     property WindowState: TxWindowState index 12 read GetTOleEnumProp write SetTOleEnumProp stored False;
  201.     property Visible: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
  202.     property Enabled: WordBool index 14 read GetWordBoolProp write SetWordBoolProp stored False;
  203.     property Cursor: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  204.     property ChartColor: Integer index 16 read GetIntegerProp write SetIntegerProp stored False;
  205.     property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
  206.     property OnClick: TNotifyEvent read FOnClick write FOnClick;
  207.     property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
  208.     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  209.     property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
  210.     property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate;
  211.     property OnKeyPress: TChartXOnKeyPress read FOnKeyPress write FOnKeyPress;
  212.     property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
  213.   end;
  214.  
  215. procedure Register;
  216.  
  217. implementation
  218.  
  219. uses ComObj;
  220.  
  221. procedure TChartX.InitControlData;
  222. const
  223.   CEventDispIDs: array[0..7] of Integer = (
  224.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  225.     $00000007, $00000008);
  226.   CControlData: TControlData = (
  227.     ClassID: '{6EFF2423-BF09-11D0-B4DF-00A0C901D681}';
  228.     EventIID: '{6EFF2422-BF09-11D0-B4DF-00A0C901D681}';
  229.     EventCount: 8;
  230.     EventDispIDs: @CEventDispIDs;
  231.     LicenseKey: nil;
  232.     Flags: $00000000;
  233.     Version: 300);
  234. begin
  235.   ControlData := @CControlData;
  236. end;
  237.  
  238. procedure TChartX.InitControlInterface(const Obj: IUnknown);
  239. begin
  240.   FIntf := Obj as ITeeAxForm;
  241. end;
  242.  
  243.  
  244. procedure Register;
  245. begin
  246.   RegisterComponents('ActiveX', [TChartX]);
  247. end;
  248.  
  249. end.
  250.